COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare (fasload dfmacs fas dsk (imp ssa)))
C00005 ENDMK
C⊗;
(declare (fasload dfmacs fas dsk (imp ssa)))
(setq retfixnum (array nil fixnum,

(defun baz1 (n)
   (LETT (SETQ X (TUPLE 2 2))
	 (SETQ Y (TUPLE 0 0))
	 (PROGN (LETT (SETQ I 0)
		      (PROG NIL 
		       TYPESYSTEMPROGLABEL1
			    (COND ((> I N) (RETURN (PROGN))))
			    (SETQ Y
				  (TUPLE (+ (TSEL X 0) (TSEL Y 0))
					 (+ (TSEL X 1) (TSEL Y 1))))
			    (SETQ I (+ I 1))
			    (GO TYPESYSTEMPROGLABEL1)))
		Y)))


(defun baz2 (N&&1) 
   (DECLARE (FIXNUM N&&1))
   ((LAMBDA (X&&20 X&&21) 
      (DECLARE (FIXNUM X&&20))
      (DECLARE (FIXNUM X&&21))
      (PROGN
       (SETQ X&&20 2)
       (SETQ X&&21 2)
       ((LAMBDA (Y&&30 Y&&31) 
	  (DECLARE (FIXNUM Y&&30))
	  (DECLARE (FIXNUM Y&&31))
	  (PROGN (SETQ Y&&30 0)
		 (SETQ Y&&31 0)
		 ((LAMBDA (I&&4) 
		    (DECLARE (FIXNUM I&&4))
		    (PROG NIL 
		     TYPESYSTEMPROGLABEL1
			  (COND ((> I&&4 N&&1)
				 (RETURN '&NOOP&)))
			  (PROGN (SETQ Y&&30 (+ X&&20 Y&&30))
				 (SETQ Y&&31 (+ X&&21 Y&&31)))
			  (SETQ I&&4 (+ I&&4 1))
			  (GO TYPESYSTEMPROGLABEL1)))
		  0)
		 (STORE (ARRAYCALL FIXNUM RETFIXNUM 0) Y&&30)
		 (STORE (ARRAYCALL FIXNUM RETFIXNUM 1) Y&&31)))
	0
	0)))
    0
    0))

(include "timer.lsp[tim,lsp]")
(timer timit1 (baz1 10000.))
(timer timit2 (baz2 10000.))